home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / cli / 2b_AddIcon20.lha / AddIcon / Install < prev    next >
Encoding:
Text File  |  1997-06-22  |  3.6 KB  |  185 lines
  1.  
  2. ;*************************************
  3. ;*                                   *
  4. ;* Install Script for AddIcon 2.0    *
  5. ;* Program and script by:            *
  6. ;* ScoTT/Inferno&BlaBla              *
  7. ;*                                   *
  8. ;* BLABLA - it means system friendly *
  9. ;*                                   *
  10. ;*************************************
  11.  
  12. (if 
  13.    (askchoice
  14.    (prompt "Select language:  /   Wybierz jëzyk:")
  15.    (help @askchoice-help)
  16.    (choices
  17.    "English"
  18.    "Polski"
  19.    )
  20.    )
  21.    (
  22.    (set executabledir "Gdzie chcesz zainstalowaê plik wykonywalny programu AddIcon (katalog C: jest preferowany)?")
  23.    (set docbool "Czy chcesz zainstalowaê dokumentacjë do programu (AmigaGuide)?")
  24.    (set yes "Tak, proszë")
  25.    (set no "Nie")
  26.    (set docdir "Gdzie chcesz nagraê plik z dokumentacjâ?")
  27.    (set whaticons "Czy chcesz zainstalowaê przykîadowy zestaw ikon?")
  28.    (set iconchoice1 "Nie instaluj ûadnych ikon")
  29.    (set iconchoice2 "Zainstaluj ikonki MagicWB")
  30.    (set iconchoice3 "Zainstaluj ikonki standardowe")
  31.    (set iconsdir1 "Gdzie chciaîbyô nagraê ikony? \n(Szuflada 'Ikony' bëdzie stworzona)")
  32.    (set iconsdir2 "Gdzie w takim razie trzymasz wîasny zestaw ikon?")
  33.    (set iconsdirname "Ikony")
  34.    (set fmconfig "Czy chcesz zainstalowaê w katalogu ENVARC: przykîadowâ konfiguracjë FileMaster'a?")
  35.    )
  36.    
  37.    (
  38.    (set executabledir "Where do you want to install AddIcon executable file? (C: is prefered)")
  39.    (set docbool "Do you want to install documentation (AmigaGuide)?")
  40.    (set yes "Yes, please")
  41.    (set no "No")
  42.    (set docdir "Where do you wish me to copy documentation?")
  43.    (set whaticons "What about installing a sample set of icons?")
  44.    (set iconchoice1 "Do not install any icons")
  45.    (set iconchoice2 "Install MagicWB icons")
  46.    (set iconchoice3 "Install standard icons")
  47.    (set iconsdir1 "Where do you wish the icons to be copied to? \n(a drawer 'Icons' will be created)")
  48.    (set iconsdir2 "Where do you have your own icons stored then?")
  49.    (set iconsdirname "Icons")
  50.    (set fmconfig "Do you want to install in your ENVARC: directory an example of FileMaster configuration file?")
  51.    )
  52. )
  53.  
  54. (copyfiles
  55. (source "AddIcon")
  56. (dest
  57.    (askdir
  58.    (prompt executabledir)
  59.    (help @askdir-help)
  60.    (default "C:")
  61.    )
  62. )
  63. )
  64.  
  65. (complete 20)
  66.  
  67. (if
  68. (askbool
  69. (prompt docbool)
  70. (help @askbool-help)
  71. (choices
  72. yes
  73. no
  74. )
  75. )
  76.    (
  77.    (copyfiles
  78.    (source "AddIcon.guide")
  79.    (dest
  80.       (askdir
  81.       (prompt docdir)
  82.       (help @askdir-help)
  83.       (default @default-dest)
  84.       )
  85.    )
  86.    (infos)
  87.    )
  88. )
  89. )
  90. (complete 40)
  91.  
  92. (set whichicons
  93.    (askchoice
  94.    (prompt whaticons)
  95.    (help @askchoice-help)
  96.    (choices
  97.    iconchoice1
  98.    iconchoice2
  99.    iconchoice3
  100.    )
  101.    (default 1)
  102.    )
  103. )
  104.  
  105. (if whichicons
  106.    (
  107.    (set iconspath
  108.       (askdir
  109.       (prompt iconsdir1)
  110.       (help @askdir-help)
  111.       (default @default-dest)
  112.       )
  113.    )
  114.  
  115.    (set iconspath
  116.       (tackon
  117.       iconspath
  118.       iconsdirname
  119.       )
  120.    )
  121.  
  122.    (copyfiles
  123.    (source 
  124.       (select whichicons
  125.       ""
  126.       "MWBIcons/"
  127.       "StandardIcons/"
  128.       )
  129.    )
  130.    (dest iconspath)
  131.    (all)
  132.    (infos)
  133.    )
  134.    )
  135.    (
  136.    (set iconspath
  137.       (askdir
  138.       (prompt iconsdir2)
  139.       (help @askdir-help)
  140.       (default @default-dest)
  141.       )
  142.    )
  143.    )
  144. )
  145. (complete 70)
  146.  
  147.  
  148. (textfile
  149. (dest "ENV:AddIconPath")
  150. (append iconspath)
  151. )
  152.  
  153. (textfile
  154. (dest "ENVARC:AddIconPath")
  155. (append iconspath)
  156. )
  157.  
  158. (complete 90)
  159.  
  160. (if
  161. (askbool
  162. (prompt fmconfig)
  163. (help @askbool-help)
  164. (choices
  165. yes
  166. no
  167. )
  168. )
  169.    (
  170.    (copyfiles
  171.    (source "fm.prefs")
  172.    (dest "ENV:")
  173.    )
  174.  
  175.    (copyfiles
  176.    (source "fm.prefs")
  177.    (dest "ENVARC:")
  178.    )
  179.    )
  180. )
  181. (working "And always remember:\nBLABLA - it means system friendly")
  182. (run "SYS:Utilities/Multiview ram:AddIcon.guide")
  183. (complete 100)
  184. (exit)
  185.